
function MainStep4_PseudoArc
%
% 伪弧长延拓
%
% 作者：张晨
% 邮箱：chenzhang@csu.ac.cn
% 单位：中国科学院空间应用工程与技术中心，空间探索室
% 时间：2022年02月24日
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

clc; clear; close all; clear path;
% restoredefaultpath;
warning off;

% 添加模块
parentFolder = fileparts(pwd);
addpath(genpath([parentFolder , '\Basic']));
addpath(genpath([parentFolder , '\Bcr4bp']));
addpath(genpath([parentFolder , '\Cr3bp']));

% 载入参数
aux = Bcr4bp_Aux;

% 载入上一步收敛结果
load converged_LEO2DRO;

% ---------------------------- 计算DRO轨道 ----------------------------
aux = get_DRO(aux);

% --------------------------------------------------------------------------------------------------------------------------
% 构造多步打靶初值
yy = getIC_Coe(converged_LEO2DRO , aux);

% 选择伪弧长延拓方向
aux.pseudoArc.dir = 'dir1';
% aux.pseudoArc.dir = 'dir2';

% 伪弧长延拓
fun_pseudoArc(yy , aux);

end
